home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / fido / MM_ScriptSet1.lha / MM_CrossPost.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-14  |  1KB  |  50 lines
  1. /*
  2. ** MM_CrossPost.rexx v1.0 by Tomasz Nidecki
  3. **
  4. ** This script when installed in Browse menu, lets you
  5. ** crosspost the browsed message in a given number of areas.
  6. **
  7. ** Args: rx MM_CrossPost.rexx %a %n
  8. **
  9. ** Install in Browse menu using MM_Prefs.
  10. */
  11.  
  12. ADDRESS "MAILMANAGER"
  13.  
  14. PARSE ARG area_tag msg_num
  15.  
  16. MM_ReadMsg area_tag msg_num read_stem
  17. MM_GetAreas area_stem ECHO
  18. MM_MultiSelReq area_stem sel_stem '"'Choose areas to crosspost'"' STR
  19.  
  20. text_stem.count = 0
  21.  
  22. cp_header = "* Crossposted in "area_tag
  23. MM_AddToStem text_stem 'cp_header'
  24.  
  25. DO i = 0 FOR sel_stem.count
  26.   cp_header = "* Crossposted in "sel_stem.i
  27.   MM_AddToStem text_stem 'cp_header'
  28. END
  29.  
  30. DO i = 0 FOR read_stem.text.count
  31.   cp_text = read_stem.text.i
  32.   MM_AddToStem text_stem 'cp_text'
  33. END
  34.  
  35. write_stem.from = read_stem.from
  36. write_stem.fromaddr = read_stem.fromaddr
  37. write_stem.to = read_stem.to
  38. write_stem.toaddr = read_stem.toaddr
  39. write_stem.subj = read_stem.subj
  40. write_stem.tear = 'MM_CrossPost'
  41. write_stem.file = 't:mm.trans'
  42.  
  43. MM_WriteStem 't:mm.trans' text_stem
  44.  
  45. DO i = 0 FOR sel_stem.count
  46.   MM_WriteMsg sel_stem.i write_stem
  47. END
  48.  
  49. MM_EditMsg area_tag msg_num write_stem
  50.